home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 9 / The PC-SIG Library on CD ROM - Ninth Edition.iso / 001_100 / DISK0073 / DISK0073.ZIP / WINDCHIL.BAS < prev   
BASIC Source File  |  1982-08-28  |  2KB  |  37 lines
  1. 100 CLS
  2. 110 A$=STRING$(80,205)
  3. 120 PRINT A$
  4. 130 PRINT TAB(25)"WIND CHILL FACTOR  7006-A.BAS "
  5. 140 COLOR 23,0,0
  6. 150 PRINT :PRINT :PRINT TAB(38)"IPCO"
  7. 160 COLOR 7,0,0
  8. 170 PRINT :PRINT :PRINT TAB(29)"INTERNATIONAL PC OWNERS"
  9. 180 PRINT :PRINT :PRINT TAB(17)"p.o. box 10426, pittsburgh, pennsylvania 15234"
  10. 190 PRINT A$
  11. 200 PRINT :PRINT :PRINT :PRINT :PRINT
  12. 210 PRINT TAB(28)"PRESS ANY KEY TO CONTINUE"
  13. 220 A$=INKEY$:IF A$="" THEN 220
  14. 230 CLS
  15. 240 CLS
  16. 250 INPUT "WHAT IS THE TEMPERATURE";T:PRINT
  17. 260 INPUT "WHAT IS THE WIND VELOCITY";V:PRINT
  18. 270 IF V<4 THEN V=4:  REM WIND VELOCITY BELOW 4 MPH AND ABOVE 45 MPH HAVE                                 VERY LITTLE EFFECT ON THE CHILL FACTOR
  19. 280 C=((10.45 + (6.686112 * SQR(V)) - (.447041 * V))/22.034 * (T-91.4)) +91.4
  20. 290 PRINT
  21. 300 CLS
  22. 310 LOCATE 16,10:PRINT USING"AT A TEMPERATURE OF ### F AND A WIND VELOCITY                                     OF ## MPH THE WIND CHILL FACTOR IS  ###.####";T,V,C
  23. 320 LOCATE 20,30:INPUT "DO YOU WANT ANOTHER COMPUTATION (Y OR N)";D$
  24. 330 PRINT
  25. 340 IF D$="Y" THEN 250
  26. 350 PRINT "CORE TEMP";:PRINT TAB(13)"SYMTPMS";:PRINT TAB(49)"BRAIN & MUSCLE IMPAIRMENT"
  27. 360 PRINT STRING$(80,"*")
  28. 370 FOR X = 1 TO 13
  29. 380 READ A$,B$,C$
  30. 390 DATA 98 TO 96F,INTENSE UNCONTROLLABLE SHIVERING,ABILITY TO PERFORM COMPLEX TASKS,,,IS DECREASED,95 TO 91F,VIOLENT SHIVERING PERSISTS,DIFFICULTY IN SPEAKING-SLUGGISH,,,THINKING-AMNESIA,90 TO 86F,SHIVERING STOPS-REPLACED
  31. 400 DATA MUSCLE COORDINATION AFFECTED,,BY STRONG MUSCLE,PRODUCING ERRATIC OR JERRKY,,RIGIDITY- EXPOSED SKIN IS BLUE,MOVEMENTS-THINKING LESS CLEAR,,OR PUFFY,GENERAL COMPREHENSION DULLED BUT,,,VICTIM MAY APPEAR RATIONAL
  32. 410 DATA 85 TO 81F,MUSCLE RIGIDITY- LOWERED PULSE,IRRATIONAL-LOSS OF CONSCIOUSNESS,,AND RESPIRATON,STUPOR,80 TO 78F,UNCONSCIOUSNESS-ERRATIC HEARTBEAT,
  33. 420 DATA BELOW 78F,DEATH,
  34. 430 PRINT USING"\         \ \                                 \ \                              \";A$,B$,C$;
  35. 440 NEXT X
  36. ATH,
  37. 430 PRINT USING"\         \ \                                 \ \